unit dGrupo;

interface
uses
classes,
dObjects;

type
Tgrupo=class(TdObjects)
private
fdescrgrupo : string;
fdtalteracao : tdatetime;
fflagativo : boolean;
fidgrupo : integer;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property descrgrupo : string read fdescrgrupo write fdescrgrupo;
 property dtalteracao : tdatetime read fdtalteracao write fdtalteracao;
 property flagativo : boolean read fflagativo write fflagativo;
 property idgrupo : integer read fidgrupo write fidgrupo;
end;

implementation

constructor Tgrupo.create;
begin

inherited;

clear;
self.AddPK(['idgrupo']);
self.TableName := 'grupo';

end;
destructor Tgrupo.destroy;
begin
inherited destroy;
end;
procedure Tgrupo.clear;
begin
 fdescrgrupo   :='';
 fdtalteracao  :=0;
 fflagativo    :=false;
 fidgrupo      :=0;
end;


end.
